home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #189 (199x)(Rhein-Sieg-Soft).zip / Franz PD Disk #189 (199x)(Rhein-Sieg-Soft).adf / Dreisatz! / Dreisatz.mod < prev    next >
Text File  |  1992-08-11  |  1KB  |  47 lines
  1. (* Dreisatz @ 1992 by Matthias Gutt, Kantstr. 16, W-2120 Lüneburg
  2.    Ein Programm für den kaufmännischen Bereich *)
  3.    
  4.    
  5.    
  6. MODULE Dreisatz;
  7. FROM SYSTEM IMPORT ADR;
  8. FROM RealInOut IMPORT ReadReal,WriteReal;
  9. FROM InOut IMPORT WriteLn,WriteString;
  10.  
  11.  
  12.  
  13.  
  14. VAR
  15.  Antwort,Eingabe1,Eingabe2,Eingabe3,Ergebnis,Return: REAL;
  16.  
  17.  BEGIN
  18.   WriteLn;
  19.   WriteString("Dreisatz @ 1992 by Matthias Gutt, Kantstr. 16,");
  20.   WriteString("W-2120 Lüneburg ");
  21.   WriteLn;
  22.   WriteString("Proportional oder Antiproportional (0/1) ?:");ReadReal(Antwort);
  23.   IF Antwort >1.0 THEN WriteString("Falsche Eingabe !");END;
  24.   IF Antwort <0.0 THEN WriteString("Falsche Eingabe !");END;
  25.   WriteLn;
  26.   WriteString("1.Eingabe :");ReadReal(Eingabe1);
  27.   WriteString("2.Eingabe :");ReadReal(Eingabe2);
  28.   WriteString("3.Eingabe: ");ReadReal(Eingabe3);
  29.   WriteLn;
  30.   IF Antwort=0.0 THEN Ergebnis:=Eingabe2*Eingabe3;Ergebnis:=Ergebnis/Eingabe1;END;
  31.   IF Antwort=0.0 THEN WriteReal(Ergebnis,3,4);WriteString(" =");WriteReal(Eingabe2,3,4);WriteString("*");
  32.   WriteReal(Eingabe3,3,4);WriteString("/");WriteReal(Eingabe1,3,4);
  33.   WriteString("  -RETURN-    :");ReadReal(Return);END;
  34.   IF Antwort=1.0 THEN Ergebnis:=Eingabe1*Eingabe2;Ergebnis:=Ergebnis/Eingabe3;END;
  35.   IF Antwort=1.0 THEN WriteReal(Ergebnis,3,4);WriteString(" =");WriteReal(Eingabe1,3,4);
  36.   WriteString("*"); WriteReal(Eingabe2,3,4);WriteString("/");WriteReal(Eingabe3,3,4);
  37.   WriteString("  -RETURN-   :");ReadReal(Return);END;
  38.  END Dreisatz.
  39.  
  40.  
  41.   
  42.   
  43.    
  44.   
  45.   
  46.   
  47.